object Addform: TAddform Left = 193 Top = 118 Width = 553 Height = 515 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Compress' Color = clBtnFace Constraints.MinHeight = 515 Constraints.MinWidth = 553 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow DesignSize = ( 545 481) PixelsPerInch = 96 TextHeight = 13 object Topbevel: TBevel Left = 0 Top = 65 Width = 545 Height = 8 Align = alTop Shape = bsTopLine end object Toppanel: TPanel Left = 0 Top = 0 Width = 545 Height = 65 Align = alTop BevelOuter = bvNone Color = clWhite TabOrder = 0 DesignSize = ( 545 65) object Captionlabel: TLabel Left = 8 Top = 8 Width = 158 Height = 13 Caption = 'Compress Files Into Archive' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Infolabel: TLabel Left = 16 Top = 24 Width = 464 Height = 26 Caption = 'Please select a file name and a archive format. In the options t' + 'ab you will find options that will allow you to customize the ar' + 'chive to suite your needs. Changing the settings is optional.' WordWrap = True end object Image: TImage Left = 492 Top = 8 Width = 48 Height = 48 Anchors = [akTop, akRight] AutoSize = True Picture.Data = {} Transparent = True end end object Cancelbutton: TButton Left = 464 Top = 448 Width = 75 Height = 25 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object Okbutton: TButton Left = 384 Top = 448 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'OK' Default = True ModalResult = 1 TabOrder = 2 end object Helpbutton: TButton Left = 8 Top = 448 Width = 75 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Help' TabOrder = 3 OnClick = HelpbuttonClick end object Pagecontrol: TPageControl Left = 8 Top = 72 Width = 529 Height = 369 ActivePage = Generaltabsheet Anchors = [akLeft, akTop, akRight, akBottom] TabIndex = 0 TabOrder = 4 object Generaltabsheet: TTabSheet Caption = 'General' ImageIndex = 2 DesignSize = ( 521 341) object Uplevelbutton: TSpeedButton Left = 384 Top = 8 Width = 23 Height = 22 Hint = 'Go up one level.' Anchors = [akTop, akRight] Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000120B0000120B00000000000000000000FF00FF078DBE 078DBE078DBE078DBE078DBE078DBE078DBE078DBE078DBE078DBE078DBE078D BE078DBEFF00FFFF00FF078DBE63CBF8078DBEA3E1FB66CDF965CDF865CDF965 CDF965CDF865CDF965CDF866CDF83AADD8ACE7F5078DBEFF00FF078DBE6AD1F9 078DBEA8E5FC6FD4FA6FD4F96ED4FA6FD4F96FD4FA6FD4FA6FD4FA6ED4F93EB1 D9B1EAF5078DBEFF00FF078DBE72D6FA078DBEAEEAFC79DCFB79DCFB79DCFB79 DCFB79DCFB7ADCFB79DCFA79DCFA44B5D9B6EEF6078DBEFF00FF078DBE79DDFB 078DBEB5EEFD83E4FB44B1810A83130C8D1744B08179DBE983E4FB84E5FC48B9 DABBF2F6078DBEFF00FF078DBE81E2F9078DBDBAF3FD8DEBFC8DEBFC53BE960D 97180C98182797478AE9F88DEBFC4CBBDABEF4F7078DBEFF00FF078DBE89EAFB 078DBDFFFFFFC9F7FEC8F7FEC9F7FE73C3960E9D1B0C9617339946C8F7FE9BD5 E7DEF9FB078DBEFF00FF078DBE93F0FE078DBE078DBE078DBE078DBE078DBE07 868A0E9B1A0FA71C088222078AAF078DBE078DBE078DBEFF00FF078DBE9BF5FE 9AF6FE9AF6FE9BF5FD9BF6FE9AF6FE76D4C116982616AF260C941864C5A70989 BAFF00FFFF00FFFF00FF078DBEFEFEFEA0FBFFA0FBFEA0FBFEA1FAFEA1FBFE86 E2D51F9E3425BB3D14A42345AC6F0989BAFF00FFFF00FFFF00FFFF00FF078DBE FEFEFEA5FEFF0C85180C85180C85180C851827A94234C55223B5390C85180C85 180C85180C8518FF00FFFF00FFFF00FF078DBE078DBE078CAE0C851820953250 D97B4BD5753ECB6232C15026B83E159E240C8518FF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FF0C851832AE4E5CE68E4FD87843D0682EBA4B0C85 18FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0C 85183EBE6061EA934ED6770C8518FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0C851846C86C0C8518FF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FF0C8518FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} OnClick = UplevelbuttonClick end object Viewsbutton: TSpeedButton Left = 408 Top = 8 Width = 23 Height = 22 Hint = 'Change viewstyle.' Anchors = [akTop, akRight] Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFCC6701CC6701CC6701CC6701CC6701CC6701CC 6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701FF00FFCC6701 FFFFFFFFFFFFFFFAF5FFF3E6FEEBD5FEE3C3FEDCB5FED7ABFED7ABFED7ABFED7 ABFED7ABFED7ABCC6701FF00FFCC6701FFFFFFFFFFFFFFFFFFFFFAF5FFF3E6FE EBD5FEE3C4FEDCB5FED7ABFED7ABFED7ABFED7ABFED7ABCC6701FF00FFCC6701 FFFFFF4571FA4571FA4571FAFFFBF5A23F08A23F08A23F08FEDBB5059ACD059A CD059ACDFED7ABCC6701FF00FFCC6701FFFFFF4571FA4571FA4571FAFFFFFFA2 3F08A23F08A23F08FEE3C4059ACD059ACD059ACDFED7ABCC6701FF00FFCC6701 FFFFFF4571FA4571FA4571FAFFFFFFA23F08A23F08A23F08FFEBD5059ACD059A CD059ACDFED7ABCC6701FF00FFCC6701FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFEFAF5FEF3E7FEEBD5FFE3C3FEDCB5FED7ABCC6701FF00FFCC6701 FFFFFFCC9A99CC9A99CC9A99FFFFFFE27E03E27E03E27E03FFFAF4029A03029A 03029A03FEDCB5CC6701FF00FFCC6701FFFFFFCC9A99CC9A99CC9A99FFFFFFE2 7E03E27E03E27E03FFFFFF029A03029A03029A03FEE3C4CC6701FF00FFCC6701 FFFFFFCC9A99CC9A99CC9A99FFFFFFE27E03E27E03E27E03FFFFFF029A03029A 03029A03FFEBD5CC6701FF00FFCC6701FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAF5FFF3E6CC6701FF00FFCC6701 CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC67 01CC6701CC6701CC6701FF00FFFF00FFCC6701CC6701CC6701CC6701CC6701CC 6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701FF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} OnClick = ViewsbuttonClick end object Browsebutton: TSpeedButton Left = 490 Top = 253 Width = 23 Height = 22 Hint = 'Browse.' Anchors = [akRight, akBottom] Caption = '...' OnClick = BrowsebuttonClick end object Archivelabel: TLabel Left = 8 Top = 256 Width = 31 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Name:' end object Formatlabel: TLabel Left = 8 Top = 281 Width = 35 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Format:' end object Locationlabel: TLabel Left = 8 Top = 11 Width = 44 Height = 13 Caption = 'Location:' end object Shelllistview: TPTShellList Left = 64 Top = 40 Width = 449 Height = 201 IconOptions.AutoArrange = True MultiSelect = True TabOrder = 0 ViewStyle = vsList Anchors = [akLeft, akTop, akRight, akBottom] end object Shellcombobox: TPTShellCombo Left = 64 Top = 8 Width = 313 Height = 22 ShellList = Shelllistview TabOrder = 1 Anchors = [akLeft, akTop, akRight] end object Nameedit: TEdit Left = 64 Top = 253 Width = 417 Height = 21 Anchors = [akLeft, akRight, akBottom] TabOrder = 2 end object Formatcombobox: TComboBox Left = 64 Top = 278 Width = 145 Height = 21 Style = csDropDownList Anchors = [akLeft, akBottom] DropDownCount = 12 ItemHeight = 13 TabOrder = 3 OnChange = FormatcomboboxChange end object Sfxcheckbox: TCheckBox Left = 8 Top = 316 Width = 505 Height = 17 Anchors = [akLeft, akBottom] Caption = 'Create a self-extracting archive' TabOrder = 4 end end object Optionstabsheet: TTabSheet Caption = 'Options' ImageIndex = 1 object Spanninggroupbox: TGroupBox Left = 8 Top = 120 Width = 265 Height = 105 Caption = 'Spanning' TabOrder = 0 object Spansizelabel: TLabel Left = 8 Top = 49 Width = 49 Height = 13 Caption = 'Span size:' end object Spanmodelabel: TLabel Left = 8 Top = 24 Width = 77 Height = 13 Caption = 'Spanning mode:' end object Customlabel: TLabel Left = 8 Top = 74 Width = 72 Height = 13 Caption = 'Custom (bytes):' end object Spanmodecombobox: TComboBox Left = 112 Top = 21 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 0 Text = 'None' OnChange = SpanmodecomboboxChange Items.Strings = ( 'None' 'Spanning' 'Splitting') end object Spansizecombobox: TComboBox Left = 112 Top = 46 Width = 145 Height = 21 Style = csDropDownList Enabled = False ItemHeight = 13 ItemIndex = 4 TabOrder = 1 Text = '1440 kB' OnChange = SpansizecomboboxChange Items.Strings = ( 'Custom' '360 kB' '720 kB' '1200 kB' '1440 kB' '2 MB' '5 MB' '10 MB' '30 MB' '100 MB' '120 MB' '250 MB' '650 MB' '700 MB') end object Customedit: TEdit Left = 112 Top = 71 Width = 145 Height = 21 Enabled = False TabOrder = 2 Text = '0' end end object Advancedgroupbox: TGroupBox Left = 280 Top = 8 Width = 233 Height = 105 Caption = 'Advanced Settings' TabOrder = 1 object Advnamingcheckbox: TCheckBox Left = 8 Top = 76 Width = 217 Height = 17 Caption = 'Advanced span naming' Checked = True State = cbChecked TabOrder = 0 end object Multimediacompcheckbox: TCheckBox Left = 8 Top = 16 Width = 217 Height = 17 Caption = 'Multimedia compression' Checked = True State = cbChecked TabOrder = 1 end object Execompcheckbox: TCheckBox Left = 8 Top = 36 Width = 217 Height = 17 Caption = 'EXE compression' Checked = True State = cbChecked TabOrder = 2 end object Solidcheckbox: TCheckBox Left = 8 Top = 56 Width = 217 Height = 17 Caption = 'Create solid archive' TabOrder = 3 end end object Cmpgroupbox: TGroupBox Left = 8 Top = 8 Width = 265 Height = 105 Caption = 'Compression Settings' TabOrder = 2 object Complvllabel: TLabel Left = 8 Top = 24 Width = 88 Height = 13 Caption = 'Compression level:' end object Dictionarysizelabel: TLabel Left = 8 Top = 49 Width = 71 Height = 13 Caption = 'Dictionary size:' end object Recoverydatalabel: TLabel Left = 8 Top = 74 Width = 73 Height = 13 Caption = 'Recovery data:' end object Complvlcombobox: TComboBox Left = 112 Top = 21 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 end object Dictionarysizecombobox: TComboBox Left = 112 Top = 46 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 7 TabOrder = 1 Text = '4096 kB' Items.Strings = ( '32 kB' '64 kB' '128 kB' '256 kB' '512 kB' '1024 kB' '2048 kB' '4096 kB') end object Recoverydatacombobox: TComboBox Left = 112 Top = 71 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 2 Text = 'None' Items.Strings = ( 'None' '1 Percent' '2 Percent' '3 Percent' '4 Percent' '5 Percent' '1 Percent (external)' '2 Percent (external)' '3 Percent (external)' '4 Percent (external)' '5 Percent (external)') end end object Encgroupbox: TGroupBox Left = 280 Top = 120 Width = 233 Height = 121 Caption = 'Encryption' TabOrder = 3 object Passlabel: TLabel Left = 8 Top = 52 Width = 49 Height = 13 Caption = 'Password:' Enabled = False end object Useencradiobutton: TRadioButton Left = 8 Top = 16 Width = 217 Height = 17 Caption = 'Use encryption' TabOrder = 0 OnClick = UseencradiobuttonClick end object Noencradiobutton: TRadioButton Left = 8 Top = 32 Width = 217 Height = 17 Caption = 'No encryption' Checked = True TabOrder = 1 TabStop = True OnClick = NoencradiobuttonClick end object Passedit: TEdit Left = 8 Top = 68 Width = 217 Height = 21 Enabled = False PasswordChar = '*' TabOrder = 2 end object Encfilenamescheckbox: TCheckBox Left = 8 Top = 96 Width = 217 Height = 17 Caption = 'Encrypt files names' Enabled = False TabOrder = 3 end end object Filegroupbox: TGroupBox Left = 8 Top = 232 Width = 265 Height = 99 Caption = 'Files and Folders' TabOrder = 4 object Recursecheckbox: TCheckBox Left = 8 Top = 16 Width = 249 Height = 17 Caption = 'Recursive file scan' Checked = True State = cbChecked TabOrder = 0 end object Foldernamescheckbox: TCheckBox Left = 8 Top = 36 Width = 249 Height = 17 Caption = 'Save folder names' Checked = True State = cbChecked TabOrder = 1 end object Hiddencheckbox: TCheckBox Left = 8 Top = 56 Width = 249 Height = 17 Caption = 'Include hidden files' Checked = True State = cbChecked TabOrder = 2 end object Dosnamescheckbox: TCheckBox Left = 8 Top = 76 Width = 249 Height = 17 Caption = 'DOS names' TabOrder = 3 end end end end object Savedialog: TSaveDialog DefaultExt = 'zip' FileName = 'Untitled' Filter = 'All Files (*.*)|*.*' Left = 8 Top = 8 end end